home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 2010 April / PCWorld0410.iso / hity wydania / Ubuntu 9.10 PL / karmelkowy-koliberek-desktop-9.10-i386-PL.iso / casper / filesystem.squashfs / usr / bin / cpanp-run-perl < prev    next >
Text File  |  2009-10-01  |  536b  |  14 lines
  1. #!/usr/bin/perl
  2.     eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
  3.     if $running_under_some_shell;
  4. use strict;
  5. my $old = select STDERR; $|++;  # turn on autoflush
  6. select $old;             $|++;  # turn on autoflush
  7. $0 = shift(@ARGV);              # rename the script
  8. my $rv = do($0);                # execute the file
  9. die $@ if $@;                   # die on parse/execute error
  10.  
  11. ### XXX 'do' returns last statement evaluated, which may be
  12. ### undef as well. So don't die in that case.
  13. #die $! if not defined $rv;      # die on execute error
  14.